****
** Replication File:
**
** “Are Republicans and Conservatives More Likely 
** to Believe Conspiracy Theories?”
**
** Adam Enders, Christina Farhart, Joanne Miller,
** Joseph Uscinski, Kyle Saunders, and Hugo Drochon
**
** Analyses conducted in Stata/SE 15.1
****

* Set working directory

********************************************************************************

****
** 2016 CCES
****

use "CCES 2016 2.dta"

* Create dichotomized versions
foreach v of var katrina-hcpoison{ 
	gen `v'_dum = .
	replace `v'_dum = 0 if `v' <= 2
	replace `v'_dum = 1 if `v' >= 3
}


* Means by partisanship
mean banks_dum if pid7 < 4 [pweight=weight]
mean banks_dum if pid7 == 4 [pweight=weight]
mean banks_dum if pid7 > 4 & pid < . [pweight=weight]

mean katrina_dum if pid7 < 4 [pweight=weight]
mean katrina_dum if pid7 == 4 [pweight=weight]
mean katrina_dum if pid7 > 4 & pid < . [pweight=weight]

mean fakestat_dum if pid7 < 4 [pweight=weight]
mean fakestat_dum if pid7 == 4 [pweight=weight]
mean fakestat_dum if pid7 > 4 & pid < . [pweight=weight]

mean putin_dum if pid7 < 4 [pweight=weight]
mean putin_dum if pid7 == 4 [pweight=weight]
mean putin_dum if pid7 > 4 & pid < . [pweight=weight]

mean koch_dum if pid7 < 4 [pweight=weight]
mean koch_dum if pid7 == 4 [pweight=weight]
mean koch_dum if pid7 > 4 & pid < . [pweight=weight]

mean hcpoison_dum if pid7 < 4 [pweight=weight]
mean hcpoison_dum if pid7 == 4 [pweight=weight]
mean hcpoison_dum if pid7 > 4 & pid < . [pweight=weight]

clear

********************************************************************************

****
** 2018 CCES 1
****

use "CCES 2018 1.dta"


* Create dichotomized versions
foreach v of var truther{ 
	gen `v'_dum = .
	replace `v'_dum = 0 if `v' <= 3
	replace `v'_dum = 1 if `v' >= 4
}


* Means by partisanship
mean truther_dum if pid < 4 [pweight=weight]
mean truther_dum if pid == 4 [pweight=weight]
mean truther_dum if pid > 4 & pid < . [pweight=weight]

clear

********************************************************************************

****
** 2018 CCES, Miller
****

use "CCES 2018 3.dta"

* Create dichotomized versions
foreach v of var rusmanip mueller{ 
	gen `v'_dum = .
	replace `v'_dum = 0 if `v' <= 2
	replace `v'_dum = 1 if `v' >= 3
}

* Means by partisanship
mean rusmanip_dum if pid7 < 4 [pweight=teamweight]
mean rusmanip_dum if pid7 == 4 [pweight=teamweight]
mean rusmanip_dum if pid7 > 4 & pid < . [pweight=teamweight]

mean mueller_dum if pid7 < 4 [pweight=teamweight]
mean mueller_dum if pid7 == 4 [pweight=teamweight]
mean mueller_dum if pid7 > 4 & pid < . [pweight=teamweight]

clear

********************************************************************************

****
** July 2019 Qualtrics
****

use "Qualtrics 2019 1.dta"


* Create dichotomized versions
foreach v of var moon cancer{ 
	gen `v'_dum = .
	replace `v'_dum = 0 if `v' <= 2
	replace `v'_dum = 1 if `v' >= 3
}

* Means by partisanship
mean moon_dum if pid < 4
mean moon_dum if pid == 4
mean moon_dum if pid > 4 & pid < .

mean cancer_dum if pid < 4
mean cancer_dum if pid == 4
mean cancer_dum if pid > 4 & pid < .

clear

********************************************************************************

****
** March 2020 Qualtrics
****

use "Qualtrics March 2020.dta"


* Create dichotomized versions
foreach v of var rothschilds-smallgroup{ 
	gen `v'_dum = .
	replace `v'_dum = 0 if `v' <= 3
	replace `v'_dum = 1 if `v' >= 4
}


* Means by partisanship
mean rothschilds_dum if pid < 3
mean rothschilds_dum if pid == 3
mean rothschilds_dum if pid > 3 & pid < .

mean jfk_dum if pid < 3
mean jfk_dum if pid == 3
mean jfk_dum if pid > 3 & pid < .

mean aliens_dum if pid < 3
mean aliens_dum if pid == 3
mean aliens_dum if pid > 3 & pid < .

mean aids_dum if pid < 3
mean aids_dum if pid == 3
mean aids_dum if pid > 3 & pid < .

mean jewskilled_dum if pid < 3
mean jewskilled_dum if pid == 3
mean jewskilled_dum if pid > 3 & pid < .

mean gmos_dum if pid < 3
mean gmos_dum if pid == 3
mean gmos_dum if pid > 3 & pid < .

mean trumpasset_dum if pid < 3
mean trumpasset_dum if pid == 3
mean trumpasset_dum if pid > 3 & pid < .

mean birther_dum if pid < 3
mean birther_dum if pid == 3
mean birther_dum if pid > 3 & pid < .

clear

********************************************************************************

****
** June 2020 Qualtrics
****

use "Qualtrics June 2020.dta"


* Create dichotomized versions
foreach v of var cpurpose-tracking{ 
	gen `v'_dum = .
	replace `v'_dum = 0 if `v' <= 3
	replace `v'_dum = 1 if `v' >= 4
}


* Means by partisanship
mean cpurpose_dum if pid < 4
mean cpurpose_dum if pid == 4
mean cpurpose_dum if pid > 4 & pid < .

mean tracking_dum if pid < 4
mean tracking_dum if pid == 4
mean tracking_dum if pid > 4 & pid < .

mean covidvaxx_dum if pid < 4
mean covidvaxx_dum if pid == 4
mean covidvaxx_dum if pid > 4 & pid < .

clear

********************************************************************************

****
** October 2020 Qualtrics
****

use "Qualtrics Oct 2020.dta"


* Create dichotomized versions
foreach v of var arrested-postoffice{ 
	gen `v'_dum = .
	replace `v'_dum = 0 if `v' <= 3
	replace `v'_dum = 1 if `v' >= 4
}

* Means by partisanship
mean arrested_dum if pid < 4
mean arrested_dum if pid == 4
mean arrested_dum if pid > 4 & pid < .

mean hollywood_dum if pid < 4
mean hollywood_dum if pid == 4
mean hollywood_dum if pid > 4 & pid < .

mean cexaggerate_dum if pid < 4
mean cexaggerate_dum if pid == 4
mean cexaggerate_dum if pid > 4 & pid < .

mean deepstate_dum if pid < 4
mean deepstate_dum if pid == 4
mean deepstate_dum if pid > 4 & pid < .

mean cellphone_dum if pid < 4
mean cellphone_dum if pid == 4
mean cellphone_dum if pid > 4 & pid < .

mean falseflag_dum if pid < 4
mean falseflag_dum if pid == 4
mean falseflag_dum if pid > 4 & pid < .

mean vaccines_dum if pid < 4
mean vaccines_dum if pid == 4
mean vaccines_dum if pid > 4 & pid < .

mean climatechange_dum if pid < 4
mean climatechange_dum if pid == 4
mean climatechange_dum if pid > 4 & pid < .

mean repsteal_dum if pid < 4
mean repsteal_dum if pid == 4
mean repsteal_dum if pid > 4 & pid < .

mean infecttrump_dum if pid < 4
mean infecttrump_dum if pid == 4
mean infecttrump_dum if pid > 4 & pid < .

mean faking_dum if pid < 4
mean faking_dum if pid == 4
mean faking_dum if pid > 4 & pid < .

mean covercovid_dum if pid < 4
mean covercovid_dum if pid == 4
mean covercovid_dum if pid > 4 & pid < .

mean postoffice_dum if pid < 4
mean postoffice_dum if pid == 4
mean postoffice_dum if pid > 4 & pid < .


clear


********************************************************************************

****
** May 2021 Qualtrics
****

use "Qualtrics 2021.dta"

* Create dichotomized versions
foreach v of var epstein-cellphone{ 
	gen `v'_dum = .
	replace `v'_dum = 0 if `v' <= 3
	replace `v'_dum = 1 if `v' >= 4
}

mean epstein_dum if pid < 4
mean epstein_dum if pid == 4
mean epstein_dum if pid > 4 & pid < .

mean bobby_dum if pid < 4
mean bobby_dum if pid == 4
mean bobby_dum if pid > 4 & pid < .

mean simpson_dum if pid < 4
mean simpson_dum if pid == 4
mean simpson_dum if pid > 4 & pid < .

mean govassass_dum if pid < 4
mean govassass_dum if pid == 4
mean govassass_dum if pid > 4 & pid < .

mean contra_dum if pid < 4
mean contra_dum if pid == 4
mean contra_dum if pid > 4 & pid < .

mean lightbulbs_dum if pid < 4
mean lightbulbs_dum if pid == 4
mean lightbulbs_dum if pid > 4 & pid < .

mean fluoride_dum if pid < 4
mean fluoride_dum if pid == 4
mean fluoride_dum if pid > 4 & pid < .

mean mlk_dum if pid < 4
mean mlk_dum if pid == 4
mean mlk_dum if pid > 4 & pid < .

mean mindcontrol_dum if pid < 4
mean mindcontrol_dum if pid == 4
mean mindcontrol_dum if pid > 4 & pid < .

mean pharma_dum if pid < 4
mean pharma_dum if pid == 4
mean pharma_dum if pid > 4 & pid < .

mean fdrlied_dum if pid < 4
mean fdrlied_dum if pid == 4
mean fdrlied_dum if pid > 4 & pid < .

mean fda_dum if pid < 4
mean fda_dum if pid == 4
mean fda_dum if pid > 4 & pid < .

mean soros_dum if pid < 4
mean soros_dum if pid == 4
mean soros_dum if pid > 4 & pid < .

mean sandyhook_dum if pid < 4
mean sandyhook_dum if pid == 4
mean sandyhook_dum if pid > 4 & pid < .

mean killpolice_dum if pid < 4
mean killpolice_dum if pid == 4
mean killpolice_dum if pid > 4 & pid < .

mean billgates_dum if pid < 4
mean billgates_dum if pid == 4
mean billgates_dum if pid > 4 & pid < .

mean cellphone_dum if pid < 4
mean cellphone_dum if pid == 4
mean cellphone_dum if pid > 4 & pid < .



